Imports Colegio

Public Class FrmCargarLicencia

    Private Sub BtnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuardar.Click
        If TxtTitulo.Text = "" Or IsNumeric(TxtTitulo.Text) Then
            MsgBox("Lo siento no esta permitido cargar vacio o numerico", MsgBoxStyle.Exclamation)
            TxtTitulo.Focus()
            Exit Sub
        End If
        If TxtCapitulo.Text = "" Or IsNumeric(TxtCapitulo.Text) Then
            MsgBox("Lo siento no esta permitido cargar vacio o numerico", MsgBoxStyle.Exclamation)
            TxtCapitulo.Focus()
            Exit Sub
        End If
        If TxtArticulo.Text = "" Or Not IsNumeric(TxtArticulo.Text) Then
            MsgBox("Lo siento no esta permitido cargar vacio o  no numerico", MsgBoxStyle.Exclamation)
            TxtArticulo.Focus()
            Exit Sub
        End If
        If TxtLicencia.Text = "" Or IsNumeric(TxtLicencia.Text) Then
            MsgBox("Lo siento no esta permitido cargar vacio o numerico", MsgBoxStyle.Exclamation)
            TxtLicencia.Focus()
            Exit Sub
        End If

        Dim licencia As New Entidades.ELicencia
        Dim licenciasneg As New Negocios.NLicencias
        Dim band As Boolean

        licencia.Titulo = TxtTitulo.Text
        licencia.Capitulo = TxtCapitulo.Text
        licencia.Articulo = TxtArticulo.Text
        licencia.Licencia = TxtLicencia.Text
        licencia.Estado = chequeamos(CkbActivo)
        Try
            band = licenciasneg.cargarLicencia(licencia)

            If band Then
                MsgBox("Carga Exitosa", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Carga Fallida. " + ex.Message, MsgBoxStyle.Exclamation)
        End Try
        
        limpiar()
    End Sub

    Dim result As MsgBoxResult
    Private Sub BtnBuscarTitulo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscarTitulo.Click
        TxtTitulo.ReadOnly = True
        DgTitulos.Rows.Clear()
        Dim licencias As New List(Of Entidades.ELicencia)
        Dim licenciasneg As New Negocios.NLicencias
        licencias = licenciasneg.BuscarTitulodeLicencia()

        If licencias.Count = 0 Then
            result = MsgBox("Lo siento, todavia no hay titulos cargados, desea cargar", MsgBoxStyle.OkCancel)
            If result = MsgBoxResult.Ok Then
                TxtTitulo.ReadOnly = False
                TxtTitulo.Focus()
                DgTitulos.Visible = False
            End If
        Else
            DgTitulos.Visible = True
            For Each licencia As Entidades.ELicencia In licencias
                DgTitulos.Rows.Add(licencia.Titulo)
            Next
        End If
    End Sub

    Private Sub DgTitulos_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgTitulos.CellClick
        result = MsgBox("Desea realmente seleccionar este titulo?, si no es asi toque cancel y cargue uno nuevo manualmente", MsgBoxStyle.OkCancel)
        If result = MsgBoxResult.Ok Then
            TxtTitulo.Text = DgTitulos.Rows(e.RowIndex).Cells("titulo").Value
            DgTitulos.Visible = False
        Else
            DgTitulos.Visible = False
            TxtTitulo.Focus()
            TxtTitulo.ReadOnly = False
            Exit Sub
        End If
    End Sub

    Private Sub BtnBuscarCapitulo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscarCapitulo.Click
        TxtCapitulo.ReadOnly = True
        DgCapitulos.Rows.Clear()
        Dim licencias As New List(Of Entidades.ELicencia)
        Dim licenciasneg As New Negocios.NLicencias
        licencias = licenciasneg.buscarCapituloDeLicencia()

        If licencias.Count = 0 Then
            result = MsgBox("Lo siento, todavia no hay capitulos cargados, desea cargar", MsgBoxStyle.OkCancel)
            If result = MsgBoxResult.Ok Then
                TxtCapitulo.ReadOnly = False
                TxtCapitulo.Focus()
                DgCapitulos.Visible = False
            End If
        Else
            DgCapitulos.Visible = True
            For Each licencia As Entidades.ELicencia In licencias
                DgCapitulos.Rows.Add(licencia.Capitulo)
            Next
        End If
    End Sub

    Private Sub DgCapitulos_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DgCapitulos.CellClick
        result = MsgBox("Desea realmente seleccionar este capitulo?, si no es asi toque cancel y cargue uno nuevo manualmente", MsgBoxStyle.OkCancel)
        If result = MsgBoxResult.Ok Then
            TxtCapitulo.Text = DgCapitulos.Rows(e.RowIndex).Cells("capitulo").Value
            DgCapitulos.Visible = False
        Else
            DgCapitulos.Visible = False
            TxtCapitulo.Focus()
            TxtCapitulo.ReadOnly = False
            Exit Sub
        End If
    End Sub

    Private Sub BtnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCerrar.Click
        Close()
    End Sub

    Private Sub limpiar()
        TxtTitulo.Text = ""
        TxtCapitulo.Text = ""
        TxtArticulo.Text = ""
        TxtLicencia.Text = ""
    End Sub

    Private Sub FrmCargarLicencia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DgTitulos.Visible = False
        DgCapitulos.Visible = False
        CkbActivo.Enabled = False
        CkbActivo.Checked = True
    End Sub
End Class